home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 35
/
PC Gamer IT CD 35 2-2.iso
/
utility
/
prokal63
/
ProKalc.exe
/
0
/
RCDATA
/
TSURFACEAREAFORM
/
TSURFACEAREAFORM.txt
< prev
Wrap
Text File
|
1998-09-10
|
42KB
|
1,347 lines
object SurfaceAreaForm: TSurfaceAreaForm
Left = 221
Top = 176
BorderStyle = bsDialog
Caption = 'Surface Area'
ClientHeight = 245
ClientWidth = 478
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
Scaled = False
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 16
object SurfaceAreaNotebook: TPageControl
Left = 0
Top = 0
Width = 478
Height = 245
ActivePage = TabSheet1
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
HotTrack = True
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Circular Ring'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
object CircRingSurfaceImage: TImage
Left = 0
Top = 2
Width = 150
Height = 150
Picture.Data = {<image000.bmp>}
end
object CircRingSurfaceSALabel: TLabel
Left = 204
Top = 30
Width = 116
Height = 16
Caption = 'Surface Area (S) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CircRingSurfaceBigRLabel: TLabel
Left = 244
Top = 69
Width = 76
Height = 16
Caption = 'Radius (R) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CircRingSurfaceLittleRLabel: TLabel
Left = 248
Top = 108
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CircRingSurfaceExp: TMemo
Left = 16
Top = 160
Width = 119
Height = 53
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter two known '
'values, then '
'Solve.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
WantReturns = False
WordWrap = False
end
object CircRingSurfaceSAEdit: TMemo
Left = 328
Top = 26
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = CircRingSurfaceSAEditKeyUp
end
object CircRingSurfaceBigREdit: TMemo
Left = 328
Top = 65
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = CircRingSurfaceBigREditKeyUp
end
object CircRingSurfaceLittleREdit: TMemo
Left = 328
Top = 106
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = CircRingSurfaceLittleREditKeyUp
end
object CircRingSurfaceHelpBtn: TBitBtn
Left = 388
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircRingSurfaceHelpBtnClick
Kind = bkHelp
end
object CircRingSurfaceCloseBtn: TBitBtn
Left = 314
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object CircRingSurfaceSolveBtn: TBitBtn
Left = 240
Top = 188
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = CircRingSurfaceSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object CircRingSurfaceClearBtn: TBitBtn
Left = 166
Top = 188
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = CircRingSurfaceClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
end
object TabSheet2: TTabSheet
Caption = 'Cone'
object ConeSurfaceImage: TImage
Left = 2
Top = 2
Width = 150
Height = 150
Picture.Data = {<image001.bmp>}
end
object ConeSurfaceSALabel: TLabel
Left = 198
Top = 24
Width = 116
Height = 16
Caption = 'Surface Area (S) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeSurfaceSideLabel: TLabel
Left = 257
Top = 54
Width = 57
Height = 16
Caption = 'Side (l) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeSurfaceRadiusLabel: TLabel
Left = 242
Top = 84
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeSurfaceCircLabel: TLabel
Left = 190
Top = 116
Width = 124
Height = 16
Caption = 'Circumference (c) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeSurfaceExp: TMemo
Left = 24
Top = 162
Width = 103
Height = 63
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter two '
'known values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
WantReturns = False
end
object ConeSurfaceSAEdit: TMemo
Left = 328
Top = 20
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 8
WantReturns = False
WordWrap = False
OnKeyUp = ConeSurfaceSAEditKeyUp
end
object ConeSurfaceSideEdit: TMemo
Left = 328
Top = 51
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = ConeSurfaceSideEditKeyUp
end
object ConeSurfaceRadiusEdit: TMemo
Left = 328
Top = 81
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = ConeSurfaceRadiusEditKeyUp
end
object ConeSurfaceCircumEdit: TMemo
Left = 328
Top = 112
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 3
WantReturns = False
WordWrap = False
OnKeyUp = ConeSurfaceCircumEditKeyUp
end
object ConeSurfaceHelpBtn: TBitBtn
Left = 388
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = CircRingSurfaceHelpBtnClick
Kind = bkHelp
end
object ConeSurfaceClearBtn: TBitBtn
Left = 166
Top = 188
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = ConeSurfaceClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object ConeSurfaceSolveBtn: TBitBtn
Left = 240
Top = 188
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = ConeSurfaceSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object ConeSurfaceCloseBtn: TBitBtn
Left = 314
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
Kind = bkClose
end
end
object TabSheet3: TTabSheet
Caption = 'Cube'
object CubeSurfaceImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image002.bmp>}
end
object CubeSurfaceSALabel: TLabel
Left = 204
Top = 30
Width = 116
Height = 16
Caption = 'Surface Area (S) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CubeSurfaceSideLabel: TLabel
Left = 258
Top = 68
Width = 61
Height = 16
Caption = 'Side (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CubeSurfaceExp: TMemo
Left = 30
Top = 160
Width = 99
Height = 51
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'known value, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object CubeSurfaceSAEdit: TMemo
Left = 330
Top = 26
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = CubeSurfaceSAEditKeyUp
end
object CubeSurfaceSideEdit: TMemo
Left = 330
Top = 64
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = CubeSurfaceSideEditKeyUp
end
object CubeSurfaceClearBtn: TBitBtn
Left = 166
Top = 188
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = CubeSurfaceClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object CubeSurfaceSolveBtn: TBitBtn
Left = 240
Top = 188
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = CubeSurfaceSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object CubeSurfaceCloseBtn: TBitBtn
Left = 314
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Kind = bkClose
end
object CubeSurfaceHelpBtn: TBitBtn
Left = 388
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = CircRingSurfaceHelpBtnClick
Kind = bkHelp
end
end
object TabSheet4: TTabSheet
Caption = 'Prism'
object PrismSurfaceImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image003.bmp>}
end
object PrismSASurfaceLabel: TLabel
Left = 204
Top = 16
Width = 116
Height = 16
Caption = 'Surface Area (S) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PrismSASideALabel: TLabel
Left = 259
Top = 48
Width = 61
Height = 16
Caption = 'Side (a) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PrismSASideBLabel: TLabel
Left = 259
Top = 82
Width = 61
Height = 16
Caption = 'Side (b) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PrismSAHeightLabel: TLabel
Left = 247
Top = 116
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PrismSAExp: TMemo
Left = 28
Top = 160
Width = 93
Height = 53
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter three '
'known values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 8
end
object PrismSurfaceClearBtn: TBitBtn
Left = 166
Top = 188
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = PrismSurfaceClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object PrismSurfaceSolveBtn: TBitBtn
Left = 240
Top = 188
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = PrismSurfaceSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object PrismSurfaceCloseBtn: TBitBtn
Left = 314
Top = 188
Width = 70
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
Kind = bkClose
end
object PrismSurfaceHelpBtn: TBitBtn
Left = 388
Top = 188
Width = 70
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = CircRingSurfaceHelpBtnClick
Kind = bkHelp
end
object PrismSASurfaceEdit: TMemo
Left = 328
Top = 12
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = PrismSASurfaceEditKeyUp
end
object PrismSASideAEdit: TMemo
Left = 328
Top = 45
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = PrismSASideAEditKeyUp
end
object PrismSASideBEdit: TMemo
Left = 328
Top = 79
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = PrismSASideBEditKeyUp
end
object PrismSAHeightEdit: TMemo
Left = 328
Top = 112
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 3
WantReturns = False
WordWrap = False
OnKeyUp = PrismSAHeightEditKeyUp
end
end
object TabSheet5: TTabSheet
Caption = 'Sphere'
object SphereSurfaceImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image004.bmp>}
end
object SphereSASurfaceLabel: TLabel
Left = 202
Top = 32
Width = 116
Height = 16
Caption = 'Surface Area (S) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphereSARadiusLabel: TLabel
Left = 242
Top = 72
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphereSAExp: TMemo
Left = 32
Top = 151
Width = 77
Height = 67
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'known '
'value, then '
#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object SphereSASurfaceEdit: TMemo
Left = 328
Top = 28
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = SphereSASurfaceEditKeyUp
end
object SphereSARadiusEdit: TMemo
Left = 328
Top = 68
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = SphereSARadiusEditKeyUp
end
object SphereSurfaceClearBtn: TBitBtn
Left = 166
Top = 188
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = SphereSurfaceClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object SphereSurfaceSolveBtn: TBitBtn
Left = 240
Top = 188
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = SphereSurfaceSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object SphereSurfaceCloseBtn: TBitBtn
Left = 314
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Kind = bkClose
end
object SphereSurfaceHelpBtn: TBitBtn
Left = 388
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = CircRingSurfaceHelpBtnClick
Kind = bkHelp
end
end
object TabSheet6: TTabSheet
Caption = 'Spherical Segment'
object SphSegSurfaceImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image005.bmp>}
end
object SphSegSASurfaceLabel: TLabel
Left = 204
Top = 24
Width = 116
Height = 16
Caption = 'Surface Area (S) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphSegSARadiusLabel: TLabel
Left = 248
Top = 62
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphSegSAHeightLabel: TLabel
Left = 247
Top = 102
Width = 73
Height = 16
Caption = 'Height (b) ='
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphSegSAExp: TMemo
Left = 24
Top = 158
Width = 95
Height = 57
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter two '
'known values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object SphSegSASurfaceEdit: TMemo
Left = 328
Top = 20
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = SphSegSASurfaceEditKeyUp
end
object SphSegSARadiusEdit: TMemo
Left = 328
Top = 59
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = SphSegSARadiusEditKeyUp
end
object SphSegSAHeightEdit: TMemo
Left = 328
Top = 98
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = SphSegSAHeightEditKeyUp
end
object SphSegSurfaceClearBtn: TBitBtn
Left = 166
Top = 188
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = SphSegSurfaceClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object SphSegSurfaceSolveBtn: TBitBtn
Left = 240
Top = 188
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = SphSegSurfaceSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object SphSegSurfaceCloseBtn: TBitBtn
Left = 314
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object SphSegSurfaceHelpBtn: TBitBtn
Left = 388
Top = 188
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircRingSurfaceHelpBtnClick
Kind = bkHelp
end
end
end
end